home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cdity / EasyPatch133a.lha / EasyPatch133a / Docs / GotoHomePage.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-26  |  732 b   |  54 lines
  1. /* GotoHomePage.rexx <browser> - © Alessandro Zummo */
  2.  
  3. page = 'http://freepage.logicom.it/azummo/'
  4.  
  5. PARSE ARG browser
  6.  
  7.  
  8. IF browser = 'Clip' THEN
  9. DO
  10.     ADDRESS COMMAND 'ClipWrite "'page'"'
  11.  
  12.     EXIT
  13. END
  14.  
  15.  
  16. IF SHOW('Ports','IBROWSE') THEN
  17. DO
  18.     ADDRESS 'IBROWSE'
  19.  
  20.     gotourl page
  21.  
  22.     CALL DONE
  23. END
  24.  
  25. IF SHOW('Ports','VOYAGER') THEN
  26. DO
  27.     ADDRESS 'VOYAGER'
  28.  
  29.     openurl page
  30.  
  31.     CALL DONE
  32. END
  33.  
  34.  
  35. ERROR:
  36.  
  37. Say 'Cannot found a compatible browser!'
  38.  
  39. ADDRESS COMMAND 'RequestChoice TITLE="GotoHomePage.rexx" BODY="Cannot found a compatible browser!" "Ok" >NIL:'
  40.  
  41. EXIT
  42.  
  43.  
  44.  
  45. DONE:
  46.  
  47. phrase = '-s180 You are waiting to be connected to the EasyPatch home page.'
  48.  
  49. IF EXISTS('SYS:Utilities/Say') THEN 
  50. DO
  51.     ADDRESS COMMAND 'RUN <>NIL: SYS:Utilities/Say 'phrase
  52. END
  53.  
  54. EXIT